home *** CD-ROM | disk | FTP | other *** search
/ The Trig Explorer / The Trig Explorer.iso / mac / Explorer / ANGLES.dxr / 00192_Draw & Calc Angle.ls < prev    next >
Encoding:
Text File  |  1998-07-22  |  543 b   |  15 lines
  1. on beginSprite me
  2.   set the drawingMode of member "DAngle" to "nothing"
  3.   set the canvasPenSize of member "DAngle" to 3
  4.   put 45 into field "theta"
  5.   clear(member "DAngle")
  6.   set endP to VectorToPoint(member "DAngle", 174, 174, 45, 175)
  7.   if the machineType < 256 then
  8.     SetForeColor(member "DAngle", 255, 0, 255)
  9.     DrawFilledWedge(member "DAngle", 142, 144, 208, 210, 0, 45)
  10.   end if
  11.   SetForeColor(member "DAngle", 0, 0, 255)
  12.   DrawSingleArrow(member "DAngle", 174, 174, the locH of endP, the locV of endP)
  13.   Redraw(member "DAngle")
  14. end
  15.